home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / BitSize.ass < prev    next >
Encoding:
Text File  |  1999-06-23  |  345 b   |  23 lines
  1. ; d0 - value
  2.  
  3.     xdef    _BitSize
  4.  
  5. _BitSize    movem.l    d1-d2,-(a7)
  6.     moveq    #0,d1
  7.     moveq    #31,d2    ; number of bit
  8. .looph    btst.l    d2,d0
  9.     bne.s    .loopl
  10.     dbra    d2,.looph
  11. .loopl    btst.l    d1,d0    ; d2 contains top
  12.     bne.s    .end
  13.     addq    #1,d1
  14.     cmp.l    d2,d1
  15.     blt.s    .loopl
  16.     moveq    #0,d0
  17.     bra.s    .finish
  18. .end    addq    #1,d2
  19.     sub.l    d1,d2
  20.     move.l    d2,d0
  21. .finish    movem.l    (a7)+,d1-d2
  22.     rts
  23.